home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume20 / wacco / patch01 next >
Encoding:
Text File  |  1991-05-25  |  6.8 KB  |  234 lines
  1. Newsgroups: comp.sources.misc
  2. From: Parag Patel <parag@hpsdeb.sde.hp.com>
  3. Subject:  v20i017:  wacco - A C++ LL parser generator, Patch01
  4. Message-ID: <1991May23.192031.4110@sparky.IMD.Sterling.COM>
  5. Date: Thu, 23 May 1991 19:20:31 GMT
  6. Approved: kent@sparky.imd.sterling.com
  7. X-Md4-Signature: da73dad641bfead8d8434d405465309a
  8.  
  9. Submitted-by: Parag Patel <parag@hpsdeb.sde.hp.com>
  10. Posting-number: Volume 20, Issue 17
  11. Archive-name: wacco/patch01
  12. Patch-To: wacco: Volume 19, Issue 88-93
  13.  
  14. This is the first bug fix to wacco.  There was a bug in gen.C fixed 
  15. where the string "(null)" was generated on Sparc because I was passing 
  16. NULL to printf().  Some typos have been fixed in the wacco.doc example 
  17. but NOT in wacco.doc.{iw,ps} To apply the patch, unshar this file and ..
  18.  
  19.     patch < patch-1.1-1.2
  20.  
  21.    -- Parag
  22.  
  23. ---- Cut Here and feed the following to sh ----
  24. #!/bin/sh
  25. # This is a shell archive (produced by shar 3.49)
  26. # To extract the files from this archive, save it to a file, remove
  27. # everything above the "!/bin/sh" line above, and type "sh file_name".
  28. #
  29. # made 05/23/1991 17:42 UTC by parag@hpsdeb
  30. # Source directory /users/parag/tools/wacco/VERSIONS
  31. #
  32. # existing files will NOT be overwritten unless -c is specified
  33. #
  34. # This shar contains:
  35. # length  mode       name
  36. # ------ ---------- ------------------------------------------
  37. #   4768 -rw-r--r-- patch-1.1-1.2
  38. #
  39. # ============= patch-1.1-1.2 ==============
  40. if test -f 'patch-1.1-1.2' -a X"$1" != X"-c"; then
  41.     echo 'x - skipping patch-1.1-1.2 (File already exists)'
  42. else
  43. sed 's/^X//' << 'SHAR_EOF' > 'patch-1.1-1.2' &&
  44. *** tmp/README    Fri May 17 15:29:52 1991
  45. --- README    Mon May 20 19:38:39 1991
  46. ***************
  47. *** 1,4
  48. ! $Header: README,v 1.7 91/05/17 16:29:53 hmgr Exp $
  49. X  
  50. X  Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  51. X  You can do what you wish with this as long as
  52. X
  53. --- 1,4 -----
  54. ! $Header: README,v 1.10 91/05/20 20:38:40 hmgr Exp $
  55. X  
  56. X  Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  57. X  You can do what you wish with this as long as
  58. ***************
  59. *** 9,15
  60. X  software.  It is completely unsupported.  You're on your own.
  61. X  
  62. X  
  63. ! This is version 1.1 of Wacco, basically an LL(1) parser generator.
  64. X  Why Another Compiler COmpiler?  Why not?!?
  65. X  
  66. X  Wacco generates recursive-descent C++ code from an input file.  The
  67. X
  68. --- 9,15 -----
  69. X  software.  It is completely unsupported.  You're on your own.
  70. X  
  71. X  
  72. ! This is Wacco, which is basically an LL(1) parser generator.
  73. X  Why Another Compiler COmpiler?  Why not?!?
  74. X  
  75. X  Wacco generates recursive-descent C++ code from an input file.  The
  76. ***************
  77. *** 58,60
  78. X  
  79. X  
  80. X      -- Parag Patel <parag@sde.hp.com>
  81. X
  82. --- 58,77 -----
  83. X  
  84. X  
  85. X      -- Parag Patel <parag@sde.hp.com>
  86. + 
  87. + 
  88. + 
  89. + --------------------REVISION-INFO----------------------
  90. + 
  91. + 1.0    released on HP INTERX Contrib Tape
  92. + 
  93. + 1.1    first version released to comp.sources.misc
  94. +     files modified: Makefile README defs.h table.h version.C
  95. +     ported to Sparc, added -Dstuff in Makefile
  96. +     fixed problem with macro names in table.h
  97. + 
  98. + 1.2    first bug-fix release
  99. +     files modified: gen.C wacco.doc
  100. +     bug in gen.C fixed where the string "(null)" was generated on Sparc
  101. +         because I was passing NULL to printf()
  102. +     some typos fixed in wacco.doc example but NOT in wacco.doc.{iw,ps}
  103. *** tmp/gen.C    Fri Feb 22 15:08:25 1991
  104. --- gen.C    Mon May 20 12:18:31 1991
  105. ***************
  106. *** 1,5
  107. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  108. ! static const char rcs_id[] = "$Header: gen.C,v 1.29 91/02/22 16:08:02 hmgr Exp $";
  109. X  
  110. X  #include "defs.h"
  111. X  #include "toks.h"
  112. X
  113. --- 1,5 -----
  114. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  115. ! static const char rcs_id[] = "$Header: gen.C,v 1.30 91/05/20 13:18:31 hmgr Exp $";
  116. X  
  117. X  #include "defs.h"
  118. X  #include "toks.h"
  119. ***************
  120. *** 115,121
  121. X          return FALSE;
  122. X  }
  123. X  
  124. ! static const char *mktype(symbol *sym, char *pre = "", char *post = NULL)
  125. X  {
  126. X      if (!dotype(sym))
  127. X      return "";
  128. X
  129. --- 115,121 -----
  130. X          return FALSE;
  131. X  }
  132. X  
  133. ! static const char *mktype(symbol *sym, char *pre = "", char *post = "")
  134. X  {
  135. X      if (!dotype(sym))
  136. X      return "";
  137. ***************
  138. *** 136,142
  139. X      return strbldf("%s%s%s", pre, name, post);
  140. X  }
  141. X  
  142. ! static const char *mkvoidtype(symbol *sym, char *pre = "", char *post = NULL)
  143. X  {
  144. X      const char *type = mktype(sym, pre, post);
  145. X      if (*type == '\0')
  146. X
  147. --- 136,142 -----
  148. X      return strbldf("%s%s%s", pre, name, post);
  149. X  }
  150. X  
  151. ! static const char *mkvoidtype(symbol *sym, char *pre = "", char *post = "")
  152. X  {
  153. X      const char *type = mktype(sym, pre, post);
  154. X      if (*type == '\0')
  155. *** tmp/version.C    Fri May 17 15:30:01 1991
  156. --- version.C    Mon May 20 12:18:33 1991
  157. ***************
  158. *** 1,3
  159. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  160. X  
  161. ! static char *const whatid = "@(#)wacco 1.1 (17 May 1991)";
  162. X
  163. --- 1,3 -----
  164. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  165. X  
  166. ! static char *const whatid = "@(#)wacco 1.2 (20 May 1991)";
  167. *** tmp/wacco.doc    Fri Feb 22 15:04:39 1991
  168. --- wacco.doc    Mon May 20 19:28:08 1991
  169. ***************
  170. *** 1,5
  171. X  Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  172. ! << $Header: wacco.doc,v 1.25 91/02/22 16:04:23 hmgr Exp $ >>
  173. X  
  174. X  << Please see the wacco(1) man page for details on its usage. >>
  175. X  << Only the grammar format is described here.                 >>
  176. X
  177. --- 1,5 -----
  178. X  Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  179. ! << $Header: wacco.doc,v 1.27 91/05/20 20:28:05 hmgr Exp $ >>
  180. X  
  181. X  << Please see the wacco(1) man page for details on its usage. >>
  182. X  << Only the grammar format is described here.                 >>
  183. ***************
  184. *** 420,426
  185. X  
  186. X  
  187. X  
  188. ! ================= E X A M P L E    G R A M M E R ==================
  189. X  
  190. X  // This is the usual required calculator sample.  It can still use
  191. X  // a LOT of work, but it illustrates the basics.  Note that the
  192. X
  193. --- 420,426 -----
  194. X  
  195. X  
  196. X  
  197. ! ================= E X A M P L E    G R A M M A R ==================
  198. X  
  199. X  // This is the usual required calculator sample.  It can still use
  200. X  // a LOT of work, but it illustrates the basics.  Note that the
  201. ***************
  202. *** 487,493
  203. X  
  204. X  "."        { return (int)EOI; }
  205. X  
  206. ! $DOUBLE        ({D}+)|({D}+\.{D}+)|({D}+[Ee]-?{D}+)|({D}+\.{D}+[Ee]-?{D}+)
  207. X  
  208. X  "#".*$        ;
  209. X  
  210. X
  211. --- 487,493 -----
  212. X  
  213. X  "."        { return (int)EOI; }
  214. X  
  215. ! $DOUBLE        ({D}+)|({D}+\.{D}*)|({D}+[Ee]-?{D}+)|({D}+\.{D}*[Ee]-?{D}+)
  216. X  
  217. X  "#".*$        ;
  218. X  
  219. SHAR_EOF
  220. chmod 0644 patch-1.1-1.2 ||
  221. echo 'restore of patch-1.1-1.2 failed'
  222. Wc_c="`wc -c < 'patch-1.1-1.2'`"
  223. test 4768 -eq "$Wc_c" ||
  224.     echo 'patch-1.1-1.2: original size 4768, current size' "$Wc_c"
  225. fi
  226. exit 0
  227.  
  228. exit 0 # Just in case...
  229. -- 
  230. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  231. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  232. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  233. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  234.